home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / intuition / Glyph.p < prev    next >
Encoding:
Text File  |  2002-03-13  |  479 b   |  16 lines

  1. pTempVar <- <primitive 110 2 >
  2. <primitive 112 pTempVar 1  " isDisplayed " \
  3.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
  4.     #( 'isDisplayed' #subclassResponsibility:  )) >
  5.  
  6. <primitive 112 pTempVar 2  " glyphType " \
  7.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
  8.     #( 'glyphType' #subclassResponsibility:  )) >
  9.  
  10. <primitive 98 #Glyph \
  11.   <primitive 97 #Glyph #Object #AmigaTalk:Intuition/Glyph.st \
  12.    #(  ) \
  13.    #( #isDisplayed #glyphType  ) \
  14.   pTempVar 1 3 > #ordinary >
  15.  
  16.